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--File: WEControl .mesa 
--Edited by: 

Barbara May 15, 1978 5:58 PM 

Sandman April 21, 1978 12:19 PM 

DIRECTORY 

ProcessDefs: FROM "processdef s" USING [Detach], 
RectangleDefs: FROM "rectangledefs" USING [ 

ComputeCharWidth, GetDefaul tBitmap, GetDef aul tFont , leftmargin, Rptr, 

xCoord, yCoord], 
StreamDefs: FROM "streamdefs" USING [ 

ClearDisplayChar, DisplayHandle , Equallndex, GetDefaul tDisplayStream, 

GetDef aul tKey, Getlndex, KeyboardHandle, Modifylndex, Setlndex, 

StreamError, Streamlndex], 
StringDefs: FROM "stringdefs" USING [AppendChar, AppendString] , 
SystemDefs: FROM "systemdefs" USING [AllocateHeapString, FreeHeapString]» 
WindExDefs: FROM "windexdefs" USING [ 

LoadThisWindow, maxscratch, Originlndex, WEBreak, WEDataObject , WEMain, 

WEPosition, WESelection, WEWindows, WindowExecutive] , 
WindowDefs: FROM "windowdefs" USING [ 

Al terWindowType, GetCurrentDispl ayWindow, MakeSelection, MarkSelection, 

Selection, WindowHandle] ; 

DEFINITIONS FROM WindExDefs; 

WEControl : PROGRAM 

IMPORTS ProcessDefs, SystemDefs, StringDefs, StreamDefs, RectangleDefs, 

WindowDefs, WindExDefs 
EXPORTS WindExDefs 
SHARES WindExDefs, StreamDefs = 
BEGIN 

-- common types 

WindowHandle: TYPE « WindowDefs .WindowHandle; 
DisplayHandle: TYPE = StreamDefs .Displ ayHandl e; 
KeyboardHandle: TYPE = StreamDefs . KeyboardHandle; 
Streamlndex: TYPE « StreamDefs .Streamlndex; 
Selection: TYPE = WindowDefs .Selection; 
Rptr: TYPE = RectangleDefs . Rptr; 
xCoord: TYPE = RectangleDefs .xCoord; 
yCoord: TYPE = RectangleDefs .yCoord; 



-- Window Executive Main Control Routine 

ReadEditChar: PUBLIC PROCEDURE [char: CHARACTER, w: WindowHandle] = 
BEGIN 

--declare locals 
index: Streamlndex; 
fixup: BOOLEAN ^ FALSE; 
firstchar: BOOLEAN «- TRUE; 
ch: CHARACTER; 
controlA: CHARACTER « IC; 
controlH: CHARACTER « IOC; 
controlW: CHARACTER « 27C; 
controlQ: CHARACTER « 21C; 
ESC: CHARACTER « 33C; 
Space: CHARACTER = 40C; 
--do editing like ReadEditString 
SELECT char FROM 

controlA, controlH «> 
BEGIN 

IF w.ds.charx ^ RectangleDefs . leftmargin THEN 
BEGIN 

index ^ StreamDefs .Getlndex[w. file] ; 
w.eofindex <- index; 

index ^ StreamDefs .ModifyIndex[index , -1]; 

IF StreamDefs .Equal Index[w. selection . rightindex, index] THEN 
BEGIN 

WindowDefs .MarkSelection[w] ; 
fixup ^ TRUE; 
END; 
StreamDefs .Setlndex[w.f ile , index]; 
ch <" w.f ile. get[w. file]; 
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StreamDof s.Cl8arDisplayChar[w.ds, ch]; 
IF fixup THEN 
BEGIN 

w. selection . n'ghtx ♦- w.ds.charx; 
index *- StreamDef s .ModifyIndex[index, -1]; 
w. selection . rightindex ^ index; 
WindowDefs.MarkSel ection[w] ; 
fixup ♦- FALSE; 
END; 
END; 
END; 
controlW, controlQ ■> 
BEGIN 
DO 

IF w.ds.charx » RectangleDef s. lef tmargin THEN EXIT; 
index *- StreamDef s .Getlndex[w. file] ; 
index ^ StreamDef s .ModifyIndex[index, -1]; 

IF StreamDef s. Equal Index[w. selection . rightindex, index] THEN 
BEGIN 

WindowDef s .MarkSelection[w] ; 
fixup ♦- TRUE; 
END; 
StreamDefs.SetIndex[w.f ile, index]; 
w.eofindex <- index; 
ch ^ w.f ile. get[w.f ile 

1 StreamDefs.StreamError => EXIT]; 
IF ch = Space AND NOT firstchar THEN EXIT 

ELSE IF ch ff Space THEN firstchar ^ FALSE; 
StreamDef s. CI earDisplayChar[w.ds, ch]; 
ENDLOOP; 
IF fixup THEN 
BEGIN 

index ^ StreamDef s .ModifyIndex[index, -1]; 
w. selection. rightindex ♦- index; 
w. selection, rightx *- w.ds.charx; 
WindowDef s .MarkSelection[w] ; 
fixup <- FALSE; 
END; 
END; 
ESC => LoadThisWindow[w]; 
ENDCASE => MakeOrExtendSelection[w, char]; 
END; 

MakeOrExtendSelection: PROCEDURE[w: WindowHandle, char: CHARACTER] = 
BEGIN OPEN WEState; 
-- declare locals 
ds: DisplayHandle <- w.ds; 
sel : Selection; 

index: Streamlndex ^ StreamDef s .Getlndex[w. file] ; 
-- now make/extend the current selection 
IF NOT ds.charx = w, selection . rightx OR 

StreamDef s .Equal ljidex[0riginlndex, index] THEN 
BEGIN --make this char the current selection 
w.ds.put[w.ds , char]; 
sel <r [ 

leftx: ds.charx - RectangleDef s .ComputeCharWidth[char , ds.pfont], 

leftline: ds.line, 

leftindex: index, 

rightx: ds.charx , 

rightline: ds.line, 

rightindex: index 

]; 

END 
ELSE 

BEGIN -- extend it to include this char 
w. ds . put[w. ds , char]; 
sel <- Selection[ 

leftx: w. selection . lef tx, 

leftline: w. selection . left! ine, 

leftindex: w. selection. leftindex, 

rightx: ds.charx , 

rightline: ds.line, 

rightindex: index 

]; 

END; 

WindowDef s .MakeSel ection[w, §sel]; 
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END; 

NoteNameError: PUBLIC PROCEDURE [w:WindowHancne, str: STRING] ■ 
BEGIN OPEN WEState; 
i: INTEGER; 
scratchstr: STRING; 

-- convert window into scratch and tell bad name 
IF w.type i^ scratch THEN 

BEGIN 

[scratchstr, i] <- AssignScratchFi1e[]; 

WindowDef s .AlterWindowType[w, scratch, scratchstr]; 

scratchf i 1es[i] <- w.file; 

SystemDefs.FreeHeapString[scratchstr]; 

END; 
WriteMessageString[w, str]; 
WriteMessageStr ing[w, "FileNameError I "L] ; 
END; 

WriteMessageString: PUBLIC PROCEDURE [w:WindowHandle, str: STRING] » 
BEGIN 

i: CARDINAL; 
-- write message 
FOR i IN [0. .str. length) DO 
w.ds.put[w.ds, str[i]]; 
ENDLOOP; 
w.ds.put[w.ds, 15B]; 
END; 

AssignScratchFile: PUBLIC PROCEDURE RETURNS[STRING. INTEGER] = 
BEGIN OPEN WEState; 
zero: CARDINAL = LOOPHOLE[ ' 0] ; 
i: INTEGER; 
str: STRING; 

-- loop through array looking for a free one 
FOR i IN [0. .maxscratch) DO 
IF scratchfi1es[i] = NIL THEN 

BEGIN 

str ^ SystemDefs.AnocateHeapString[8]; 

Str i ngDef s. Appends tring[ str , "Scratch"L]; 

StringDefs.AppendChar[str, LOOPHOLE[ i+zero. CHARACTER]] ; 

RETURN[str. i]; 

END; 
ENDLOOP; 
END; 

-- initialization for wmanager 

InitConf iguration: PROCEDURE » 
BEGIN OPEN WindExDefs; 
START WESelection[@WEState]; 
START WEWindows[@WEState]; 
START WEPosition[@WEState]; 

START WEBreak[@WEState]; -- must be started after WEWindows 
START WEMain[@WEState]; 
END; 

InitManager: PROCEDURE = 
BEGIN OPEN WEState; 
-- Declare Locals 
i: CARDINAL; 

w: WindowHandle <- WindowDef s .GetCurrentDispl ayWindow[] ; 
-- process and save currently extant windows 
FOR i IN [0. .4) DO 

windows[ i ] ^ w; 

IF w.link = windows[0] THEN EXIT 

ELSE w *- w. 1 ink; 

ENDLOOP; 
FOR i IN [0. .maxscratch) DO 

scratchf i les[i] ^ NIL; 

ENDLOOP; 
-- now init some stuff for later 

def aul tmapdata ^ RectangleDef s .GetDef aul tBitmap[] ; 
defaultds <- StreamDef s.GetDefaul tDisplayStream[] ; 
defaultks <- StreamDef s .GetDefaul tKey[] ; 

[defaul tfont , def aul tl ineheight] ^ RectangleDef s .GetDefaul tFont[] ; 
currentcursor ♦- textpointer; 
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--• setup External Button Procedures 
ButtonProcArray ^ TextProcArray ; 
ProcessDefs. Detach [FORK Window/Executive]; 
END; 

WEState: WindExDef s .WEDataObject ; 

-- MAIN BODY CODE 



Ini tConf iguration[]; 
Ini tManager[] ; 

END. of WEControl 



